BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Calc / MathPad 2.35.sit / Examples / curve fit < prev next >

MacBinary | 1994-05-23 | 1.1 KB | [TEXT/MPad]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: curve fit

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon May 23 00:28:46 1994, modified Mon May 23 00:28:46 1994, creator 'MPad', type ASCII, 516 bytes "curve fit" , at 0x284 342 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPad]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 63 75 72 76 65 20 | 66 69 74 00 00 00 00 00 |..curve |fit.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 61 | 64 01 00 00 00 00 00 00 |.TEXTMPa|d.......|
|00000050| 00 00 00 00 00 02 04 00 | 00 01 56 aa 05 e1 7e aa |........|..V...~.|
|00000060| 05 e1 7e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..~.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4b a7 00 00 |........|....K...|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 67 65 6e 65 72 61 |--------|--genera|
|00000090| 6c 20 6c 65 61 73 74 20 | 73 71 75 61 72 65 73 20 |l least |squares |
|000000a0| 66 69 74 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 66 69 6e |fit-----|-.-- fin|
|000000b0| 64 73 20 63 6f 65 66 66 | 69 63 69 65 6e 74 73 20 |ds coeff|icients |
|000000c0| 61 5b 69 5d 20 66 6f 72 | 20 62 65 73 74 20 66 69 |a[i] for| best fi|
|000000d0| 74 20 6f 66 20 77 65 69 | 67 68 74 65 64 20 73 75 |t of wei|ghted su|
|000000e0| 6d 20 6f 66 20 66 75 6e | 63 74 69 6f 6e 73 20 6f |m of fun|ctions o|
|000000f0| 66 20 78 0d 69 6e 63 6c | 75 64 65 20 22 3a 69 6e |f x.incl|ude ":in|
|00000100| 63 6c 3a 6d 61 74 72 69 | 78 20 6f 70 73 22 0d 0d |cl:matri|x ops"..|
|00000110| 66 69 74 28 78 29 20 3d | 20 73 75 6d 28 61 5b 69 |fit(x) =| sum(a[i|
|00000120| 2c 31 5d 2a 66 28 78 29 | 5b 69 5d 2c 69 2c 31 2c |,1]*f(x)|[i],i,1,|
|00000130| 6e 70 61 72 6d 73 29 0d | 0d 66 28 78 29 5b 6a 5d |nparms).|.f(x)[j]|
|00000140| 3d 78 5e 28 6a 2d 31 29 | 20 20 2d 2d 20 70 6f 6c |=x^(j-1)|  -- pol|
|00000150| 79 6e 6f 6d 69 61 6c 20 | 61 31 2b 61 32 2a 78 2b |ynomial |a1+a2*x+|
|00000160| 61 33 2a 78 5e 32 2e 2e | 2e 0d 0d 50 5b 69 2c 6a |a3*x^2..|...P[i,j|
|00000170| 5d 3d 66 28 78 5b 69 5d | 29 5b 6a 5d 20 64 69 6d |]=f(x[i]|)[j] dim|
|00000180| 5b 6e 64 61 74 61 2c 6e | 70 61 72 6d 73 5d 0d 50 |[ndata,n|parms].P|
|00000190| 74 50 3a 3d 6d 75 6c 74 | 69 70 6c 79 28 74 72 61 |tP:=mult|iply(tra|
|000001a0| 6e 73 70 6f 73 65 28 50 | 29 2c 50 29 3a 0d 50 74 |nspose(P|),P):.Pt|
|000001b0| 79 3a 3d 6d 75 6c 74 69 | 70 6c 79 28 74 72 61 6e |y:=multi|ply(tran|
|000001c0| 73 70 6f 73 65 28 50 29 | 2c 79 29 3a 0d 69 6e 76 |spose(P)|,y):.inv|
|000001d0| 3a 3d 69 6e 76 65 72 74 | 28 50 74 50 29 3a 0d 61 |:=invert|(PtP):.a|
|000001e0| 3a 3d 6d 75 6c 74 69 70 | 6c 79 28 69 6e 76 2c 50 |:=multip|ly(inv,P|
|000001f0| 74 79 29 3a 0d 0d 64 61 | 74 61 3d 72 65 61 64 28 |ty):..da|ta=read(|
|00000200| 78 79 64 61 74 61 29 0d | 78 5b 69 5d 3d 64 61 74 |xydata).|x[i]=dat|
|00000210| 61 5b 69 2c 31 5d 3b 20 | 79 5b 69 5d 3d 64 61 74 |a[i,1]; |y[i]=dat|
|00000220| 61 5b 69 2c 32 5d 20 64 | 69 6d 5b 6e 64 61 74 61 |a[i,2] d|im[ndata|
|00000230| 5d 3b 20 0d 0d 6e 64 61 | 74 61 3d 63 6f 75 6e 74 |]; ..nda|ta=count|
|00000240| 28 64 61 74 61 29 0d 6e | 70 61 72 6d 73 3d 33 0d |(data).n|parms=3.|
|00000250| 0d 61 3a 7b 7b 35 2e 35 | 38 32 7d 2c 7b 30 2e 31 |.a:{{5.5|82},{0.1|
|00000260| 35 39 7d 2c 7b 30 2e 30 | 30 36 7d 7d 0d 0d 70 6c |59},{0.0|06}}..pl|
|00000270| 6f 74 20 64 61 74 61 0d | 70 6c 6f 74 20 66 69 74 |ot data.|plot fit|
|00000280| 28 58 29 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |(X).....|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 01 00 00 00 01 24 | 00 00 00 24 00 00 00 32 |.......$|...$...2|
|00000310| 69 64 65 57 69 6e 64 6f | 77 28 64 69 61 6c 6f 67 |ideWindo|w(dialog|
|00000320| 29 3b 0d 20 20 20 20 20 | 20 6c 6f 6f 70 3d 46 41 |);.     | loop=FA|
|00000330| 09 63 75 72 76 65 20 66 | 69 74 02 00 00 00 54 45 |.curve f|it....TE|
|00000340| 58 54 4d 50 61 64 01 00 | 00 00 00 40 00 00 00 00 |XTMPad..|...@....|
|00000350| 00 00 54 45 58 54 4d 50 | 61 64 01 00 00 00 00 40 |..TEXTMP|ad.....@|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 a7 f7 56 5e 00 00 | 02 04 00 00 01 56 30 4c |....V^..|.....V0L|
|00000380| 29 3b 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 64 |);.     | .     d|
|00000390| 65 66 61 75 6c 74 3a 09 | 2f 2a 20 65 64 69 74 61 |efault:.|/* edita|
|000003a0| 62 6c 65 20 74 65 78 74 | 20 66 69 65 6c 64 73 20 |ble text| fields |
|000003b0| 2a 2f 0d 20 20 20 20 20 | 20 62 72 65 61 6b 3b 0d |*/.     | break;.|
|000003c0| 20 20 20 20 7d 0d 20 20 | 20 7d 0d 20 20 20 72 65 |    }.  | }.   re|
|000003d0| 74 75 72 6e 28 64 69 61 | 6c 6f 67 29 3b 0d 7d 0d |turn(dia|log);.}.|
|000003e0| 0d e6 0d f4 0d f6 0e 20 | 0e 4a 0f 2c 8e 52 0e 52 |....... |.J.,.R.R|
|000003f0| 0e 60 8e 8c 0e 8c 8e 9c | 0e 9c 0e c6 0e e2 8f 08 |.`......|........|
|00000400| 00 00 00 20 00 00 00 03 | 00 02 3f f9 8e fa 35 12 |... ....|..?...5.|
|00000410| 94 e9 c8 ae 01 36 01 1c | 00 04 00 37 00 bd 01 25 |.....6..|...7...%|
|00000420| 01 3f 00 2f 00 00 01 00 | 00 00 01 24 00 00 00 24 |.?./....|...$...$|
|00000430| 00 00 00 32 00 25 f4 e4 | 07 5a 00 00 00 1c 00 32 |...2.%..|.Z.....2|
|00000440| 00 00 50 52 65 66 00 00 | 00 0a 00 80 ff ff 00 00 |..PRef..|........|
|00000450| 00 00 00 27 11 c8 00 00 | 00 00 00 00 00 00 00 00 |...'....|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+